package org.snake.mvcframework.servlet.v2;

import org.snake.mvcframework.annotation.*;

import javax.servlet.ServletConfig;
import javax.servlet.ServletException;
import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
import java.io.File;
import java.io.IOException;
import java.io.InputStream;
import java.lang.annotation.Annotation;
import java.lang.reflect.Field;
import java.lang.reflect.Method;
import java.net.URL;
import java.util.*;

public class RAYDispatcherServlet extends HttpServlet
{

    /**
     * IOC容器
     */
    private Map<String, Object> ioc = new HashMap<>();

    /**
     * url映射MAP
     */
    private Map<String, Method> handlerMappings = new HashMap<>();

    /**
     * 缓存所有类的全类名
     */
    private List<String> classNameCache = new ArrayList<>();

    /**
     * 加载配置文件
     */
    private Properties contextConfig = new Properties();

    @Override
    protected void doGet(HttpServletRequest req, HttpServletResponse resp) throws ServletException, IOException
    {

        this.doPost(req, resp);
    }

    @Override
    protected void doPost(HttpServletRequest req, HttpServletResponse resp) throws ServletException, IOException
    {

        try
        {
            // 运行阶段
            doDispatch(req, resp);
        }
        catch (Exception e)
        {
            e.printStackTrace();
            resp.getWriter().write("500 Exception Detail: " + Arrays.toString(e.getStackTrace()));
        }

    }

    @Override
    public void init(ServletConfig config) throws ServletException
    {

        // 1.加载配置文件
        doLoadConfig(config.getInitParameter("contextConfigLocation"));

        // 2.初始化IOC容器，目前的实现是直接在当前类初始化一个MAP

        // 3.扫描相关的类
        doScanner(contextConfig.getProperty("scanPackage"));

        // =============== IoC =============== //
        // 4.实例化相关的类，并且将实例缓存到IOC容器中
        doInstance();

        // =============== DI =============== //
        // 5.DI，完成依赖注入
        doAutowired();

        // =============== MVC =============== //
        // 6.初始化HandlerMapping
        doInitHandlerMapping();

        System.out.println("RAY Spring is init...");
    }

    /**
     * 加载配置文件
     */
    private void doLoadConfig(String contextConfigLocation)
    {

        // 从类路径下找到配置文件
        try (InputStream is = this.getClass().getClassLoader().getResourceAsStream(contextConfigLocation))
        {
            contextConfig.load(is);
        }
        catch (IOException e)
        {
            e.printStackTrace();
        }
    }

    /**
     * 扫描相关的类
     *
     * @param scanPackage 扫描包路径
     */
    private void doScanner(String scanPackage)
    {

        // 1.获取包下的所有class文件
        // 包路径org.snake.demo中的"."替换成"/".即org/snake/demo的文件路径
        URL url = this.getClass().getClassLoader().getResource("/" + scanPackage.replaceAll("\\.", "/"));

        // 2.获取路径下的所有文件
        if (null != url)
        {
            // 类路径下文件
            File classPath = new File(url.getFile());

            // 循环获取类路径下的所有文件
            for (File file : classPath.listFiles())
            {

                if (null == file)
                {
                    continue;
                }
                // 迭代扫描子文件夹
                if (file.isDirectory())
                {
                    // 递归的一个扫描
                    doScanner(scanPackage + "." + file.getName());
                }
                else
                {
                    // 过滤掉非class的文件
                    if (!file.getName().endsWith(".class"))
                    {
                        continue;
                    }
                    // 2.1 拿到文件名
                    String fileName = file.getName();
                    // 2.2 通过 包名 + 文件名，再截取掉文件名的后缀，即可得到全类名
                    String className = (scanPackage + "." + fileName.replaceAll(".class", ""));
                    // 2.3 缓存这个类的全类名，通过全类名，才能够通过反射Class.forName()去实例化
                    classNameCache.add(className);
                }

            }

        }

    }

    /**
     * 实例化相关的类，并且将实例缓存到IOC容器中
     */
    private void doInstance()
    {

        // 没有找到class类，则返回
        if (classNameCache.isEmpty())
        {
            return;
        }

        try
        {

            for (String className : classNameCache)
            {
                // 获取全类名的类
                Class<?> clazz = Class.forName(className);
                // 并不是所有的类都需要实例化，像枚举类、工具类这些是不需要实例化的；所以只对注解标明的组件类做实例化
                if (clazz.isAnnotationPresent(RAYController.class))
                {
                    // 通过反射实例化
                    Object instance = clazz.newInstance();
                    // 类名，做一次首字母小写的转换
                    String beanName = toLowerFirstName(clazz.getSimpleName());
                    // 默认是类名的首字母小写
                    ioc.put(beanName, instance);
                }
                else if (clazz.isAnnotationPresent(RAYService.class))
                {

                    // 1.默认是类名的首字母小写
                    // 类名，做一次首字母小写的转换
                    String beanName = toLowerFirstName(clazz.getSimpleName());

                    // 2.不同包下出现相同类名，只能自定义beanName
                    RAYService annotationService = clazz.getAnnotation(RAYService.class);

                    if (!"".equals(annotationService.value()))
                    {
                        beanName = annotationService.value();
                    }

                    // 通过反射实例化
                    Object instance = clazz.newInstance();
                    // 默认是类名的首字母小写
                    ioc.put(beanName, instance);

                    // 3.如果是接口，new它的实现类，将接口的类型全名作为key
                    for (Class<?> i : clazz.getInterfaces())
                    {
                        if (ioc.containsKey(i.getName()))
                        {
                            throw new Exception("The beanName " + i.getName() + " is exists!!");
                        }
                        ioc.put(i.getName(), instance);
                    }

                }
            }
        }
        catch (Exception e)
        {
            e.printStackTrace();
        }

    }

    /**
     * 类名的首字母小写
     *
     * @param simpleName 类名称
     * @return String 首字母小写后的类名称
     */
    private String toLowerFirstName(String simpleName)
    {

        // 转换为ASCII码
        char[] chars = simpleName.toCharArray();
        // 同个字母的小写字母比大写字母要大32
        chars[0] += 32;
        return String.valueOf(chars);
    }

    /**
     * DI，完成依赖注入
     */
    private void doAutowired()
    {

        if (ioc.isEmpty())
        {
            return;
        }

        // 循环做属性注入
        for (Map.Entry<String, Object> entry : ioc.entrySet())
        {
            // 拿到所有声明的属性，包含了所有的public/protected/private/default
            Field[] fields = entry.getValue().getClass().getDeclaredFields();
            // 迭代检查所有的field
            // 1.是否添加了注解
            for (Field field : fields)
            {

                if (!field.isAnnotationPresent(RAYAutowired.class))
                {
                    continue;
                }

                RAYAutowired autowired = field.getAnnotation(RAYAutowired.class);
                // 注解的名称
                String beanName = autowired.value().trim();
                // 如果名称等于空，则默认用接口类型，进行注入
                if ("".equals(beanName))
                {
                    beanName = field.getType().getName();
                }
                // 强制暴力访问
                field.setAccessible(true);
                // 从IoC容器中找到字段对应的对象，动态赋值
                try
                {
                    // 给entry.getValue()这个对象，对应的字段field赋值
                    field.set(entry.getValue(), ioc.get(beanName));
                }
                catch (IllegalAccessException e)
                {
                    e.printStackTrace();
                    continue;
                }
            }
        }
    }

    /**
     * 初始化HandlerMapping
     */
    private void doInitHandlerMapping()
    {

        if (ioc.isEmpty())
        {
            return;
        }

        for (Map.Entry<String, Object> entry : ioc.entrySet())
        {

            Class<?> clazz = entry.getValue().getClass();
            // 加了controller注解，才做 HandlerMapping
            if (!clazz.isAnnotationPresent(RAYController.class))
            {
                continue;
            }

            // 处理类名上的注解
            String baseUrl = "";
            if (clazz.isAnnotationPresent(RAYRequestMapping.class))
            {
                // 获取注解
                RAYRequestMapping requestMapping = clazz.getAnnotation(RAYRequestMapping.class);
                // 映射的url
                baseUrl = requestMapping.value();
            }

            // 获取所有的public方法
            for (Method method : clazz.getMethods())
            {
                if (!method.isAnnotationPresent(RAYRequestMapping.class))
                {
                    continue;
                }
                // 获取注解
                RAYRequestMapping requestMapping = method.getAnnotation(RAYRequestMapping.class);
                // 映射的url，正则的+号，表示匹配前面的子表达式一次或者多次
                String url = ("/" + baseUrl + "/" + requestMapping.value()).replaceAll("/+", "/");
                // 缓存
                handlerMappings.put(url, method);

                System.out.println("Mapped " + url + "," + method);
            }

        }

    }

    /**
     * Spring 核心调度方法
     */
    private void doDispatch(HttpServletRequest req, HttpServletResponse resp) throws Exception
    {

        // 1. 根据请求，拿到URL
        String url = req.getRequestURI();
        // 上下文路径
        String contextPath = req.getContextPath();
        // 2. 将绝对路径，处理为相对路径
        url = url.replaceAll(contextPath, "").replaceAll("/+", "/");
        // 如果没定义
        if (!this.handlerMappings.containsKey(url))
        {

            resp.getWriter().write("404 Not Found!!");
            return;
        }
        // 3. 获取请求参数， j2ee规范中，一个key是可以对应多个值的。对应场景：多选框传值
        Map<String, String[]> params = req.getParameterMap();
        // 4. 通过url，获取到方法对象
        Method method = this.handlerMappings.get(url);
        // 5. 拿到method的形参列表
        Class<?>[] parameterTypes = method.getParameterTypes();
        // 设置实参列表
        Object[] paramValues = new Object[parameterTypes.length];

        for (int i = 0; i < parameterTypes.length; i++)
        {
            Class<?> parameterType = parameterTypes[i];

            if (parameterType == HttpServletRequest.class)
            {
                paramValues[i] = req;
            }
            else if (parameterType == HttpServletResponse.class)
            {
                paramValues[i] = resp;
            }
            else if (parameterType == String.class)
            {
                // 注意：此处是一个二维数组，即每一个形参上面都可以有多个注解
                Annotation[][] parameterAnnotations = method.getParameterAnnotations();

                for(Annotation a : parameterAnnotations[i])
                {
                    if(a instanceof RAYRequestParam)
                    {
                        // 注解中参数名称
                        String paramName = ((RAYRequestParam) a).value();

                        if(!"".equals(paramName.trim()))
                        {
                            String value = Arrays.toString(params.get(paramName))
                                    .replaceAll("\\[|\\]", "")      // 替换掉可能出现的两个方括号[]
                                    .replaceAll("\\s", "");         // 替换掉转换可能出现的格式化的空格
                            // 赋值
                            paramValues[i] = value;
                        }
                    }
                }
            }
            else
            {
                paramValues[i] = null;
            }
        }
        // 6. 获取到类名称
        String beanName = toLowerFirstName(method.getDeclaringClass().getSimpleName());
        // 7. 使用反射机制，去调用方法
        method.invoke(ioc.getOrDefault(beanName, new Object()), paramValues);

    }

}
